< Data transfer complete, from you to us

*SEND <LISP>DIR.INFO;3 [Confirm]

 to remote-file LISP.DIR
< Store of LISP.DIR[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>HELPπSYS.INFO;3 [Confirm]

 to remote-file HELP.SYS
< Store of HELP.SYS[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>INTERSCOPπE.HELP;1 [Confirm]

 to remote-file INTER.SCO
< Store of INTER.SCO[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>USERπF XXX
*SEND <LISP>ASKUSER.INFO;4 [Confirm]

 to remote-file ASKU
< Store of ASKU[AM,DBL] started correctly.
< Data transfer complete, from you to us

*DISC
*QUIT
@DIR <LISP>

   <LISP>
 /UNDELIVERABLE-MAIL/.NEWLISP@;1
 10LISP.TTY;1
 11LISP.TTY;1
 12LISP.TTY;1
 13LISP.TTY;1
 14LISP.TTY;1
 15LISP.TTY;1
 16LISP.TTY;1
 17LISP.TTY;1
 18LISP.TTY;1
 19LISP.TTY;1
 20LISP.TTY;1
 21LISP.TTY;1
 22LISP.TTY;1
 23LISP.TTY;1
 2LISP.TTY;1
 3LISP.TTY;1
 4LISP.TTY;1
 5LISP.TTY;1
 6LISP.TTY;1
 7LISP.TTY;1
 8LISP.TTY;1
 9LISP.TTY;1
 A1LISP.TTY;1
 A2LISP.TTY;1
 A3LISP.TTY;1
 ASKUSER.INFO;4
 BOOT.SAV;1
 BRKDWN.COM;90
 CARHART.SAV;9,8
 CHANGESARRAY.INFO;3
 CLISP&360LISP.FOR-STATEMENTS;1
 CLISPDEC1.;2
    .COM;2
 COMMENTS.INFO;3
 DIR.INFO;3
 HELPADR.;1
 HELPADRF.;2
 HELPHELP.;1
 HELPIDX.;1
 HELPIDXF.;2
 HELPSYS.INFO;3
 HISTORY.INFO;3
 INTERSCOPE.HELP;1
 INTERSCOPEDATA.;1
 LISP.SAV;51103,51015,50730,50104,41020
 LISP-FORTRAN.WRITEUP;1
    .GETLOC;1
    .LISPSOURCE;3
 LSPGET.SAV;1
 MAKE-INDIRECT.SAV;1
 NEWFILEPKG.INFO;1
 NNLISP.INFO;6
 NUMBERSTACK.INFO;2
 OPCODES.;2,1
    .SPAGHETTI;1
 READMACROS.INFO;3
 RECORD.COM;90
 RECORDATATYPE.MACROS;3,2
 SETBACKSPACE.;6
    .COM;3
    .SCOM;1
 SMALL.SAV;4
 SMARTARGLIST.INFO;3
 SPAGHETTI.INFO;1
 SPELLING-CORRECTOR.INFO;3
 SYSALL.SAV;6
 SYSOUT.OWNERS;2
 SYSOUT-SEARCH.SAV;3
    .INFO;2
 TRANSOR.COM;2
 UPDATE-POLICY.INFO;2
 UPDATE-TIMETABLE.INFO;2
 USERNAMEFILE.;8
 USERNAMES.;129
 USERS. ;23
 XFORMS.LISP16;3
    .UCILISP;1
  85 FILES, 3916 PAGES

@TY <LISP>  ? USERNAMES ?
@TY <LISP>USERNAMES

;  <LISP>USERNAMES.;129   WED 5-NOV-75 11:31PM            PAGE 1


(FILECREATED " 5-NOV-75 23:31:59" <LISP>USERNAMES.;129 5976   )


(DEFINEQ

(MAKEUSERNAMES
  [LAMBDA NIL                                   (* lmm: 24 MAY 75 1739)
    (PRINT (QUOTE (Be sure to add the name of new users to <LISP>USERS))
	   T)
    (PRIN1 (PRETTYDEF (QUOTE (MAKEUSERNAMES))
		      (QUOTE <LISP>USERNAMES)
		      (QUOTE (USERNAMELST)))
	   T)
    (PRIN1 (QUOTE ,)
	   T)
    (PROG (N POS FL)
          (OUTFILE USERNAMEFILE)
          (SETQ FL (OUTPUT))
          (RPTQ 52 (PROGN (RPTQ 9 (PROGN (PRIN1 0)
					 (SPACES 5)))
			  (PRIN1 0)
			  (SPACES 3)
			  (TERPRI)))
          [MAPC USERNAMELST (FUNCTION (LAMBDA (X)
		    (COND
		      ([NULL (SETQ N (COND
				 ((CAR X)
				   (USERNUMBER (CAR X)))
				 (T             (* An entry of the form 
						(NIL --) means forms on 
						CDR are evaluated for 
						everyone.)
				    0]
			(PRIN1 (CAR X)
			       T)
			(PRIN1 (QUOTE " NOT A USER.")
			       T))
		      (T (SETQ POS (GETFILEPTR FL))
			 (SETFILEPTR FL (ITIMES N 6))
			 (PRIN1 POS)
			 (SETFILEPTR FL POS)
			 (PRINT X]
          (PRINT (CLOSEF FL))
          (DIR (QUOTE USERNAME↑[)
	       (QUOTE (P PROMPT "trim? " TRIMTO 1])
)
(PRETTYCOMPRINT (MAKEUSERNAMES))
(PRETTYCOMPRINT (USERNAMELST))

(RPAQQ USERNAMELST 
       ([NIL
	  (SETQ BCOMPL.SCRATCH;-1;T)
	  [/PUTD (QUOTE DISPLAYTERMP)
		 (QUOTE (LAMBDA NIL
				(EQ (JSYS 195 262143 0 0 2)
				    11]
	  (SETQQ LISTFILESTR "
Y
")
	  (SETQ HELPSYSDIR)
	  (SETQQ HELPSYSDIRLST (<LISP>))
	  (SETQ CHANGESARRAY)

;  <LISP>USERNAMES.;129   WED 5-NOV-75 11:31PM            PAGE 1:1


	  (COND
	    ((EQ T (EVALV (QUOTE SPAGHETTIFLG)))
	     (PRIN1 "Experimental system...
" T)
	     (PUTPROPS SETBACKSPACE FILEDEF (SETBACKSPACE.SCOM 
						       SETBACKSPACE)))
	    (T
	      (PUTPROPS SETBACKSPACE FILEDEF (SETBACKSPACE.COM 
						       SETBACKSPACE))
	      (PUTPROPS CLISPD↑C
@TY <LISP>USERS

;  <LISP>USERS.;23   SAT 24-MAY-75 12:06AM                PAGE 1


SUMEX INTERLISP USERS:
*<BULLETINS>LISP.BBD,
CARHART,
MASINTER,
VANMELLE,
DAVIS,
DROMEY,
TRIGOBOFF,
LEDERBERG,
BUCHANAN,
ENGELMORE,
KING,
SHORTLIFFE,
POPLE,
GBROWN,
JACKSON,
SCOTT,
LEFAIVRE,
JOHNSON,
SRINIVASAN,
ELY,
KAPLAN,
STEFIK,
WHITE,
DBROWN,
CARPENTER,
MITCHELL,
BERGMAN,
TEITELMAN,
RMILLER,
BOBROW,
CLANCEY



@FTP SUMEX-AIM FTP User process 1.22.0
*SAIL
 Connection opened.
 Assuming 36-bit connections.

*LOG AM,DBL 
<001- SU-AI FTP Server
*< Our swapping disk is down for repair, hence,
<001 please don't do anything time-consuming.
< SU-AI FTP Server  4.0 -- at 08-NOV-75  1652
*< Password OK, login complete
*SEND <LISP>SPELLING-CORRECTOR.INFO;3 [Confirm]

 to remote-file LISP.1
< Store of LISP.1[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>UPDATE-POLICY.INFO;2 [Confirm]

 to remote-file LISP.2
< Store of LISP.2[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>UPDATE-TIMETABLE.INFO;2 [Confirm]

 to remote-file LISP.3
< Store of LISP.3[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>NEWFILEPKG.INFO;1 [Confirm]

 to remote-file LISP.3
< Store of LISP.3[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>NNLISP.INFO;6 [Confirm]

 to remote-file LISP.4
< Store of LISP.4[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>NUMBERSTACK.INFO;2 [Confirm]

 to remote-file LISP.5
< Store of LISP.5[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>READMACROS.INFO;3 [Confirm]

 to remote-file LISP.6
< Store of LISP.6[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>SMARTARGLIST.INFO;3 [Confirm]

 to remote-file LISP.7
< Store of LISP.7[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>CHANGESARRAY.INFO;3 [Confirm]

 to remote-file LISP.8
< Store of LISP.8[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>CLISPDEC1.;2 [Confirm]

 to remote-file LISP.9
< Store of LISP.9[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>CLISP&360LISP.FOR-STATEMENTS;1 [Confirm]

 to remote-file LISP.10
< Store of LISP.10[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>COMMENTS.INFO;3 [Confirm]

 to remote-file LISP.11
< Store of LISP.11[AM,DBL] started correctly.
< Data transfer complete, from you to us

*SEND <LISP>HISTORY.INFO;3 [Confirm]

 to remote-file LISP.12
< Store of LISP.12[AM,DBL] started correctly.
< Data transfer complete, from you to us

*DISC
*QUIT
@DIR

   <LENAT>
 CON5.  ;20
 L5 .   ;1
 S  .   ;18
 TOP5.  ;15
 UTIL5. ;15
  5 FILES, 301 PAGES

@LOGOUT
 LENAT over allocation by 51 pages.
KILLED JOB 11, USER LENAT, ACCT DENDRAL, TTY 131,